﻿Imports System.Data
Imports System.Data.SqlClient
Public Class KiemTraNguoiDangNhap_BUS
    Public Shared Function KiemTraDangNhap(ByVal NguoiDangNhap As KiemTraUsername_DTO) As Boolean
        Dim reader As DataTable = KiemTraUsername_DAO.KiemTraDuLieu(NguoiDangNhap)

        If reader.Rows.Count = 1 Then
            Return True
        Else
            MessageBox.Show("tai khoan hoac password khong hop le")
            Return False


        End If
    End Function
    Public Shared Function LayThongTinTaiKhoan() As DataTable
        Dim reader As DataTable = KiemTraUsername_DAO.LayThongTinTaiKhoan()
        Return reader

    End Function
    Public Shared Function themtaikhoan(ByVal NguoiDangNhap As KiemTraUsername_DTO) As Boolean
        Dim reader As Boolean = KiemTraUsername_DAO.ThemTaiKhoan(NguoiDangNhap)
        If reader = True Then
            Return True
            MessageBox.Show(" bạn đã thêm thành công")
        Else
            MessageBox.Show("không thể thêm tài khoản nay!")
            Return False


        End If
    End Function
    Public Shared Function DoiPass(ByVal NguoiDangNhap As KiemTraUsername_DTO)
        Dim reader As Boolean = KiemTraUsername_DAO.DoiPass(NguoiDangNhap)
        If reader = True Then
            MessageBox.Show(" bạn đã đổi password thành công")
        Else
            MessageBox.Show("không thể đổi Password nay!")
        End If
    End Function
    Public Shared Function Xoataikhoan(ByVal NguoiDangNhap As String) As Boolean
        Dim reader As Boolean = KiemTraUsername_DAO.XoaTaiKhoan(NguoiDangNhap)
        If reader = True Then
            Return True
            MessageBox.Show(" bạn đã xoá thành công")
        Else
            MessageBox.Show("không xoá được tài khoản này!")
            Return False


        End If
    End Function
End Class
